home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_21.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  844 b   |  33 lines
  1. on enterFrame
  2.   global accueilMenu
  3.   set ActiveStartspr to 3
  4.   set Accueil to ActiveStartspr
  5.   set startBalls to 4
  6.   set presentationBall to startBalls + 1
  7.   set startHighLightSpr to 6
  8.   set identitee to startHighLightSpr
  9.   set presentation to startHighLightSpr + 1
  10.   set startHotSpot to 8
  11.   set presentationHS to startHotSpot + 1
  12.   updateStage()
  13.   set ro to rollOver()
  14.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), identitee, presentation)
  15.   case ro of
  16.     Accueil:
  17.       go(the frame)
  18.     presentationHS, presentationBall:
  19.       puppetSprite(presentation, 1)
  20.       set the member of sprite presentation to member "presentationLight"
  21.       updateStage()
  22.       go(the frame)
  23.     otherwise:
  24.       depuppetize(presentation, identitee)
  25.       updateStage()
  26.       go("AccueilClose")
  27.   end case
  28. end
  29.  
  30. on exitFrame
  31.   go(the frame)
  32. end
  33.